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MODULE MAIL (LANGUAGE Oy 15559) t 
we = *v04-000 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGH S RESERVED. 


oe 
* 
ae 
® 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
fs ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER + 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTUARE Te” HEREOY 
ie TRANSFERRED. : 
4 ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. : 

& 

® 

® 

® 
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ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MTAACP 
i ABSTRACT: 


i ENVIRONMENT : 


Starlet operating system, including privileged system services 
and internal exec routines. 
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: AUTHOR: D. H. GILLESPIE, CREATION DATE: 31-OCT-77 

i MODIFIED BY: 

: V02-004 DMWw00019 David Michael Walp gy. Pb 

1 Calculate correct size of mailbox message. ange in 
meassage format from OPCOM. 
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This module handles reading from the mailbox and enabling mailbox ast's. 
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LIBRARY ‘SYSSLIBRARY:L1B.L32'; 


REQUIRE ‘'SRCS:MTADEF .B32'; 


FORWARD ROUTINE 


CHECK_MAIL 
; from operator 
ENABLE _MAIL_AST : COMMON_CALL NOVALUE; ! enable ast's from mailbox 
EXTERNAL ROUTINE 
L : COMMON_CALL, ' cancel all outstanding 10 
REGUEST_UNBLOCK : COMMON-CALL, ! request unblock unless 
! cancel requested 
SYS$Q10W : ADDRESSING_MODE (ABSOLUTE); 
! queue 10 request and wait 
EXTERNAL 
MAIL_CHANNEL, ! mailbox channel number 
10_ STATUS, ' status of | 
WORK_AREA; ! work area defined in OPRCOM 
BIND 
MAIL _= WORK_AREA : BBLOCK CMSGSIZE], 
MAILSZ = WORK_AREA + MSGSIZE; 


: COMMON_CALL NOVALUE, Check mailbox for reply 
| 
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16- Sep-1984 95: ei DISK 
GLOBAL ROUTINE CHECK_MAIL : COMMON_CALL NOVALUE = 
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FUNCTIONAL DESCRIPTION: 
This routine checks for reply from operator in mailbox. 


CALLING SEQUENCE: 
CHECK_MAIL(), called either as an AST routine or before hibernating 


INPUT PARAMETERS: 
none 


11 Bliss 
$VMSM ASTE 


IMPLICIT INPUTS: 
mailbox input 


OUTPUT es 
no 


IMPLICIT OUTPUTS: 
Depending on the reply, the blocked request is either canceled, 
aborted, or continued. 
mailsz - size of operator text 
mail = contains mailbox message with operator text 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


USER ERRORS: 


none 

BEGIN 
LITERAL 

CR = 13, ' carriage return 

LF = 10, ' Linefeed 

CRLF_LEN = 2; ! Lenght of <CRLF> 
BIND 

CR_LF = UPLIT BYTE ( CR, LF ); 

' <¢RLF> string 

EXTERNAL REGISTER 

COMMON 3 
LOCAL 

STATUS system service status 


address of volume control block 
pointer fo start of oper reply text 
pointer into the operator reply 


: LONG 
V : REF BBLOCK, 
START_TEXT : LONG, 

POINTER : LONG: 


! Read the mailbox and if nothing there exit immediately 
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ms. 0-742 ag C 
-000 12:3 4 1382 95: ei Dts KSVMCHAST eRcCMtaace” SRCIMAIL.B32; fae * (2) VOL 
yous -Sep-1984 
: a2 p ; é gtatus = SO10MC EFN = EFN, : 
: 18 p FUNC J =AAIL AE READLBLK "OR 10$M NOW, ! don't wait for reply 
0S b 0859 10S6 = 10_STATUS | 3 
: 109 P O31 P2 = MSGSiZE ) 
: 183 552 IF NOT .STATUS THEN IO-STATUS = .STATUS; : 
= ; os i IF .1O_STATUS EQL SSS_ENDOFFILE THEN RETURN; ; 
; i 3¢ that can show up are programming problems: 
; 188 239 | SSS. NOPRIV SSS. ACEVIO, $8 ..RBTOOSPL 
: i 5 0339 ir NOT .IO_STATUS THEN BUG_CHECK(ACPMBFAIL); ve Rasiipomae 
; typed in tex 
HB BELG L peas rtenctmesens srs: tar parecpre tee te tet te Naa, 
: 18? $368 i » * rator text ends with a ePalro” The rest of the message is 
3: «6161 054 ! The ope 
: 166 Bete ZOPCOM Line. 
: 1 8 Ser Teorr set cores MS TEXT); 
; oee$ srant ‘oder use ere > “per gore ser cerca -MS_TEXT), 
RB gaat 5 Ghat Ba TSU eet aerege ge 
: 189 0549 MAILSZ = ( IF CHSFAIL ( S POINTER ) 
; 189 bee4 4 ELSE ( .POINTER = .START_TEXT ) 
; 170 O53¢ : 
3 in §32 ! d at once upon receipt to one reply 
: Now since all AST's are delivere 
: 153 0355 reenable Ast’s on this eat (box 
i ifs 0357 ENABLE_MAIL_AST(); pe ae 
: 133 0359 The reply id is the VCB address, if not VCB block then igno 
: 178 RPLYID); 
: 180 be62 Yee s giMtL caress AS Re DYNSC _VCB THEN RETURN; 
; 182 0368 ! Now examine message to see what the reply contains if request is pending 
; 18 0565 ; then ignore operator reply. 
: Bs ose? STATUS = OPC$_ROSTPEND: 
; 183 38 IF .STATUS<O,16> EQL .MAILCOPCSW_MS_STATUS] THEN RETURN; 
; p2f0 mount then there is the 
; 189 35) 4 rMDTLTey thatna CANCEL OP REPLY’ a4 ted and the cancel was completed 
: 194 258 i Before receipt of either & completion or cancel reply 
; 198 378 ir NOT .VCBCVCBSV_WAIMOUVOL] THEN RETURN; ee ee 
: 138 ssful or canceled then unbloc 
: 196 Hi Bl Rag as Bh es, of 10 takes place if requested 
: 198 350 iF .MAILCOPCSW_MS_STATUS) OR .VCBLVCBSV_CANCELIO 
+ 199 0581 THEN 


; 200 ¢ BEGIN 

H 01 REQUEST_UNBLOCK(.VCB); 

: 4 : RETURN; ! returns only if cancel done 
: 204 : 

: 05 : ? The only case left is that the operator aborted the request 

; 09 0589 CURRENT_VCB = .VCB; 

; 208 590 ERROR(SS$_ABORT); 

; 209 591 KERNEL_CACL (DO_CANCEL) ; 

3; ew 592 END; ! end of routine 


tt 43 

IDENT \v04-000\ 
-PSECT S$CODES,NOWRT,2 

OA OD 00000 P.AAA: .BYTE 13, 10 


CR_LF= P.AAA 
.EXTRN DO_CANCEL, REQUEST_UNBLOCK 
EXTRN SYS$Q10W, MAIL_CHANN 
SEXTRN IO_STATUS, WORR_AREA 
EXTRN BUGS_ACPMBFAIL, USER_STATUS 
EXTRN SYSSCMKRNL 
OOFC 00000 ENTRY CHECK_MAIL, Save R2,R3,R4,R5,R6,R7 
57 00006 CF 9E 90002 OVAB I0 STATUS, R7 
56 00006 CF 9E 0000 MOVAB MATL#2, R6 
7E 7C 0000C CLRQ  =(SP) 
7E 7C OO00E CLRQ =(SP) 
7E 7¢ «BF 9A 00010 MOVZBL #124, -(SP) 
FE Ab OF 90014 PUSHAB MAIL 
7E 7C 00017 LRQ = = (SP) 
57 DD 00019 PUSHL 7 
7E 61 8F 9A 0001B MOVZBL #97, -(SP) 
00006 CF DD O001F PUSHL MAIL_CHANNEL 
01 DD 00023 PUSHL #1 
000000006 00 FB 00025 CALLS #12, SYS$QI10W 
55 DO 0002C MOVL RO, STATUS 
03 5 €E8 0002F BLBS STATUS, 1$ 
67 55 DO 000 i MOVL STATUS, IO_STATUS 
00000870 =8F 67 D 99 1$ CMPL O_STATUS, #2160 
6 7 c BEQL § 
67 €£ 99 E BLBS 10_STATUS, 2$ 
Fert 0041 BUGW 
0000* 9043 .WORD <BUG$_ACPMBFAIL!4> 
06 ag 3 004 28: MOVAB MAIL+8, START TEXT 
02 aA? 3€ 00049 MOVZWL I0_STATUS+2, RO 
g O40 SUBL2 #8; 
5 MATCHC #2, CRLF, RO, (START_TEXT) 
13 00 6 BEQL = 3 
D MOVL #2, RS 
f B 3$ SUBL2 #2, R 
4 : BNEQ 4 
3D 6 CLRL oR 
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; 0468 


; 0531 


0549 


SS 


16-5e Sep-1 4:3 VAX-11 Bliss-32 V4.0-742 4 
racer tga PS:ee:28 Phe behleteReMtaRce eacomare.as221° «2s 
3 1 6 BRB 5$ 
53 4 C3 $¢ 4$ SUBL2 START_TEXT, R3 0551 
7A 3D 67 5$ MOVL RS, MAILSZ 549 
0000v ct 0 F 68 CALLS #0. ENABLE_MAIL_AST 0557 
é 02 A p MOVL MA{L+4, VCB 0961 
i Ta £6 CAPE yocvess. #17 562 
55 00058021 i is O7A MOVL #360681, STATU 0567 
Bs 5 Bi 08 CMPW STATUS, ‘mAILt 0569 
3¢ 13 000 BEQL $ 
27 0B a2 E1 00086 BBC #2, 11(VCB), 8$ 0575 
0 § Eg O88 BLBS MAIL+ 0580 
08 0B A2 F BBC #5, 11(VCB), 7$ 
2 oD 09 6$ PUSHL V 
00006 CF 07 FB 0009 CALLS #1, REQUEST_UNBLOCK 
04 O009A RET 
5B 52 DO 00098 7$ MOVL VCB, CURRENT_VCB 
00006 CF eC BO 0009: MOVW #44, USER_STATUS 
E 04 OO0A CLRL = = (SP) 
5E DD OOOA PUSHL SP 
00006 CF 9F O0OA7 PUSHAB bO_¢ ANCEL 
000000006 9F 03 FB OOOAB CALLS #3, a@#SYSSCMKRNL 
04 00082 8$: RET 0592 


; Routine Size: 179 bytes, Routine Base: S$CODE$ + 0002 
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MAIL 16-Sep-1984 02:24:3 VAX=11 BLlis 
04-000 a tiae hs rik te eed a eH 
3 1 37 ! GLOBAL ROUTINE ENABLE_MAIL_AST : COMMON_CALL NOVALUE = 
: 214 95 1 !4¢ 
: 215 36 1 i 
; 1g 97 1 | FUNCTIONAL DESCRIPTION: 
5 1 238 : This routine enables AST's on the mailbox channel 
; i$ $208 1 | CALLING SEQUENCE: 
; : 0601 ENABLE_MAIL_AST<) 
: ‘ 608 | INPUT PARAMETERS: 
: $5; gos 1 i i 
> 225 060 1} IMPLICIT INPUTS: 
: $58 0608 1 i fr 
$ 228 0609 1 | OUTPUT PARAMETERS: 
ie ce Bee 
: 231 O61g 1 i IMPLICIT OUTPUTS: — 
: $36 Rel? : AST declaration for mailbox enabled 
: 234 0615 1! ROUTINE VALUE: 
: $3 Seis | — 
: 237 0618 1 | SIDE EFFECTS: 
eee Bee 
> 240 0621 1 ' USER ERRORS: 
Bee Sat 
: rk 0624 1 i-- 
> 26h 0625 1 
hoe we 
> 267 0628 EXTERNAL REGISTER 
Pie eee, Be BL ineoomuen 
: 250 0651 BIND 
; 31 065 SECONDS = UPLIT (-70000000, -1); 
: 2g 0634 LOCAL 
: 34 oie STATUS; 
; $86 06 ; ! This enables an AST when mail is placed in the operator communication 
5 of o638 mailbox 
: 259 O40 WHILE 1 DO 
; 60 641 BEGIN 
; 6¢ P ek STATUS = $Q10W( CHAN = .MAIL_CHANNEL, 
> 26 P 0644 FUNC = 10$ SETMODE, 
> 264 P 0645 10SB = 10 STATUS, 
> 265 P 646 Pl = CHECR MAIL 
: 36 ‘7 P3 = EXEC_MODE 5; 
: 268 649 IF NOT .STATUS THEN IO_STATUS = .STATUS; 
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TER: CMTAACP.SRCIMAIL.B32; 1 (3) 


vO: 


8 | 
1b-5¢ -1984 02:24:3 VAX-11 Bliss-32 Vv4.0- Page MO 
1 ~8ep-19 4 reed | DISKSVMSMASTER:CMTAACP. SRCIMAIL.B32:1-° (33 | vO 
; 650 ; 
; 970 651 IF .10_STATUS NEQ SS$_INSFMEM THEN EXITLOOP; | 
; t 6 § i IF SSETIMR(EFN = TIMEFN, DAYTIM = SECONDS) | : 
: th 6 : SWAITFR(EFN = TIMEFN); | ; 
; 57 65 END; : 
: ¢? Oe : 
; 278 659 1 END; ! end of routine ‘ 
90085 -BLKB 3 ; 
FFFFFFFF FBD3E280 O00B8 P.AAB: .LONG 70000000, -1 F ‘ 
SECONDS= P.AAB ; 
.EXTRN SYSSSETIMR, SYSSWAITFR ; 
000c¢ 00000 .ENTRY ENABLE_MAIL_AST, Save R2,R3 : 0593 ; 
53 00006 cf 9E 0000¢ MOVAB I0_STATUS, R3 : ; 
— 7C 9900 1$ CLRQ  =(SP + 0647 ; 
7E Qi 7D 00009 MOVa #1, (SP) : ; 
E D4 9900¢ CLRL 30s = §P : ; 
FF30 cr OF 000g PUSHAB CHECK_MAIL : : 
: 7¢ 0001 CLRQ = =(SP : ; 
53 DD 00014 PUSHL RS : : 
23 DD 00016 PUSHL #35 : ; 
0000G CF DD 00018 PUSHL MAIL_ CHANNEL i : 
7E D4 0001C CLRL. = : : 
000000006 00 o¢ FB OO01E CALLS #12, SYS$QI0W : ; 
32 D 002 MOVL RO, STATUS : ; 
0 S52 €8 00028 BLBS ATUS, 2$ 3: 0649 3 
63 52 D0 00028 MOVL § STATUS, IO_STATUS : 3 
00000124 = 8F 63 D1 690 E 2s CMPL 10_STAfuS, #292 ; 0651 ; 
1¢ 12 000 BNE $ : ; 
7E 7C 00037 CLRQ  =(SP) : 0653 ; 
BC AF 9F 00039 PUSHAB SECONDS : ; 
03 oD 0003C¢ PUSHL # : : 
000000006 00 04 FB 00 ( CALLS #4, SYSSSETIMR : ; 
. 38 5D boca BUSH ; hin : 0655 : 
000000006 00 01 FB O004A CALLS #1, SYSSWAITFR : ; 
B4 11 90051 BRB 1$ > 0640 
04 00053 3$ RET : 0659 


; Routine Size: 84 bytes, Routine Base: S$CODE$S + 00CO 


: wf 


0663 


END 
ELUDOM 


os 


Bork Time: OPigses 

: : Lines/CPU Min: 4152 

: Senet A Sai 21651 
ee Used: 111 pages 

: Compilation Complete 


MAIL 16-Sep-1984 4:3 VAX-11 Bliss-32 V4.0-742 3 MO! 
v04-000 16-00-1984 95: £6: rk DISK $vNeH TER: CMTAACP. SRCIMAIL.B32; iad * (3) vO 
PSECT SUMMARY ; 
Name Bytes Attributes ; 
SCODES 276 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
eoceeee= Symbols ----- --- Pages Processing : 
File Total Loaded Percent Mapped Time : 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 23 0 1000 00:01.9 3 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MAIL/OBJ=OBJ$:MAIL MSRC$:MAIL/UPDATE=(ENHS$:MAIL) : 
3 Sizer 263 code + 13 data bytes : 
: Run Time 00:09.6 : 


| 
Library Statistics 


PMENT CORPORATION 
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